﻿Public Class frmContactos

    Private Sub frmContactos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'CaserDataSet.VistaContacto' Puede moverla o quitarla según sea necesario.
        Me.VistaContactoTableAdapter.Fill(Me.CaserDataSet.VistaContacto)

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgContacto.SelectionChanged
        txtObservaciones.Text = CType(dgContacto.CurrentRow.DataBoundItem.row, caserDataSet.VistaContactoRow).observaciones
    End Sub
End Class